﻿Public Class About

#Region " Functions "

	Private Sub getApplicatioInfo()
		Try
			Me.Text = "About Aurora GPU monitor"
			picBxMe.BackgroundImage = My.Resources._Me
			Me.BackgroundImage = My.Resources.AboutBack
			Dim version As String = My.Application.Info.Version.ToString
			Me.LabelVersion.Text = version
			Me.LabelCopyright.Text = My.Application.Info.Copyright
			Me.LabelCompanyName.Text = My.Application.Info.CompanyName

		Catch ex As Exception

		End Try
	End Sub

#End Region

#Region " Form "

	Private Sub Aboutme_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

		Try
			Me.Hide()
			Me.Opacity = 0
			getApplicatioInfo()
			Me.Show()
			timrStart.Enabled = True

		Catch ex As Exception

		End Try

	End Sub

	Private Sub About_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
		Try
			If e.KeyCode = Keys.Escape Then
				timrEnd.Enabled = True
			End If
		Catch ex As Exception

		End Try
	End Sub

	Private Sub About_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
		Try
			timrEnd.Enabled = True
			Exit Sub
		Catch ex As Exception

		End Try
	End Sub

#End Region
	
#Region " UI "

	Private Sub cmdOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOk.Click
		Try
			timrEnd.Enabled = True
		Catch ex As Exception

		End Try

	End Sub
#End Region

#Region " Timers "

	Private Sub timrStart_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timrStart.Tick
		Try
			Me.Opacity = Me.Opacity + 0.1
			If Me.Opacity >= 1 Then
				timrStart.Enabled = False
			End If
		Catch ex As Exception

		End Try
	End Sub

	Private Sub timrEnd_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timrEnd.Tick
		Try
			Me.Opacity = Me.Opacity - 0.1
			If Me.Opacity <= 0 Then
				timrStart.Enabled = False
				Me.Close()
			End If
		Catch ex As Exception

		End Try
	End Sub

#End Region


End Class